/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / xlisp_21.zoo / xl-003.bug

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 20 73 63 65 | 21 6d 69 74 65 6c 21 75 |From sce|!mitel!u|
|00000010| 75 6e 65 74 21 63 73 2e | 75 74 65 78 61 73 2e 65 |unet!cs.|utexas.e|
|00000020| 64 75 21 74 75 74 2e 63 | 69 73 2e 6f 68 69 6f 2d |du!tut.c|is.ohio-|
|00000030| 73 74 61 74 65 2e 65 64 | 75 21 75 63 62 76 61 78 |state.ed|u!ucbvax|
|00000040| 21 68 70 6c 61 62 73 21 | 68 70 6c 61 62 73 7a 21 |!hplabs!|hplabsz!|
|00000050| 6d 61 79 65 72 20 46 72 | 69 20 53 65 70 20 20 31 |mayer Fr|i Sep  1|
|00000060| 20 30 38 3a 32 39 3a 31 | 30 20 45 44 54 20 31 39 | 08:29:1|0 EDT 19|
|00000070| 38 39 0a 41 72 74 69 63 | 6c 65 3a 20 31 34 31 20 |89.Artic|le: 141 |
|00000080| 6f 66 20 63 6f 6d 70 2e | 6c 61 6e 67 2e 6c 69 73 |of comp.|lang.lis|
|00000090| 70 2e 78 0a 50 61 74 68 | 3a 20 63 6f 67 6e 6f 73 |p.x.Path|: cognos|
|000000a0| 21 73 63 65 21 6d 69 74 | 65 6c 21 75 75 6e 65 74 |!sce!mit|el!uunet|
|000000b0| 21 63 73 2e 75 74 65 78 | 61 73 2e 65 64 75 21 74 |!cs.utex|as.edu!t|
|000000c0| 75 74 2e 63 69 73 2e 6f | 68 69 6f 2d 73 74 61 74 |ut.cis.o|hio-stat|
|000000d0| 65 2e 65 64 75 21 75 63 | 62 76 61 78 21 68 70 6c |e.edu!uc|bvax!hpl|
|000000e0| 61 62 73 21 68 70 6c 61 | 62 73 7a 21 6d 61 79 65 |abs!hpla|bsz!maye|
|000000f0| 72 0a 46 72 6f 6d 3a 20 | 6d 61 79 65 72 40 68 70 |r.From: |mayer@hp|
|00000100| 6c 61 62 73 7a 2e 48 50 | 4c 2e 48 50 2e 43 4f 4d |labsz.HP|L.HP.COM|
|00000110| 20 28 4e 69 65 6c 73 20 | 4d 61 79 65 72 29 0a 4e | (Niels |Mayer).N|
|00000120| 65 77 73 67 72 6f 75 70 | 73 3a 20 63 6f 6d 70 2e |ewsgroup|s: comp.|
|00000130| 6c 61 6e 67 2e 6c 69 73 | 70 2e 78 2c 63 6f 6d 70 |lang.lis|p.x,comp|
|00000140| 2e 6c 61 6e 67 2e 6c 69 | 73 70 0a 53 75 62 6a 65 |.lang.li|sp.Subje|
|00000150| 63 74 3a 20 42 75 67 2b | 46 69 78 20 66 6f 72 20 |ct: Bug+|Fix for |
|00000160| 78 6c 69 73 70 32 2e 30 | 20 6d 65 74 68 6f 64 20 |xlisp2.0| method |
|00000170| 64 65 66 69 6e 69 74 69 | 6f 6e 20 3c 2d 3e 20 51 |definiti|on <-> Q|
|00000180| 75 65 73 74 69 6f 6e 3a | 20 53 68 6f 75 6c 64 20 |uestion:| Should |
|00000190| 22 64 65 66 6d 65 74 68 | 6f 64 22 20 61 6e 64 20 |"defmeth|od" and |
|000001a0| 22 64 65 66 6d 61 63 72 | 6f 22 20 75 73 65 20 6c |"defmacr|o" use l|
|000001b0| 65 78 69 63 61 6c 20 73 | 63 6f 70 69 6e 67 0a 4d |exical s|coping.M|
|000001c0| 65 73 73 61 67 65 2d 49 | 44 3a 20 3c 33 38 36 30 |essage-I|D: <3860|
|000001d0| 40 68 70 6c 61 62 73 7a | 2e 48 50 4c 2e 48 50 2e |@hplabsz|.HPL.HP.|
|000001e0| 43 4f 4d 3e 0a 44 61 74 | 65 3a 20 32 36 20 41 75 |COM>.Dat|e: 26 Au|
|000001f0| 67 20 38 39 20 31 33 3a | 33 37 3a 32 32 20 47 4d |g 89 13:|37:22 GM|
|00000200| 54 0a 52 65 70 6c 79 2d | 54 6f 3a 20 6d 61 79 65 |T.Reply-|To: maye|
|00000210| 72 40 68 70 6c 61 62 73 | 2e 68 70 2e 63 6f 6d 20 |r@hplabs|.hp.com |
|00000220| 28 4e 69 65 6c 73 20 4d | 61 79 65 72 29 0a 4f 72 |(Niels M|ayer).Or|
|00000230| 67 61 6e 69 7a 61 74 69 | 6f 6e 3a 20 48 65 77 6c |ganizati|on: Hewl|
|00000240| 65 74 74 2d 50 61 63 6b | 61 72 64 20 4c 61 62 73 |ett-Pack|ard Labs|
|00000250| 2c 20 53 6f 66 74 77 61 | 72 65 20 54 65 63 68 6e |, Softwa|re Techn|
|00000260| 6f 6c 6f 67 79 20 4c 61 | 62 2c 20 50 61 6c 6f 20 |ology La|b, Palo |
|00000270| 41 6c 74 6f 2c 20 43 41 | 2e 0a 4c 69 6e 65 73 3a |Alto, CA|..Lines:|
|00000280| 20 38 33 0a 58 72 65 66 | 3a 20 63 6f 67 6e 6f 73 | 83.Xref|: cognos|
|00000290| 20 63 6f 6d 70 2e 6c 61 | 6e 67 2e 6c 69 73 70 2e | comp.la|ng.lisp.|
|000002a0| 78 3a 31 34 31 20 63 6f | 6d 70 2e 6c 61 6e 67 2e |x:141 co|mp.lang.|
|000002b0| 6c 69 73 70 3a 31 37 38 | 37 0a 53 75 6d 6d 61 72 |lisp:178|7.Summar|
|000002c0| 79 3a 0a 45 78 70 69 72 | 65 73 3a 0a 53 65 6e 64 |y:.Expir|es:.Send|
|000002d0| 65 72 3a 0a 46 6f 6c 6c | 6f 77 75 70 2d 54 6f 3a |er:.Foll|owup-To:|
|000002e0| 0a 0a 49 6e 20 6c 6f 6f | 6b 69 6e 67 20 6f 76 65 |..In loo|king ove|
|000002f0| 72 20 74 68 65 20 78 6c | 69 73 70 20 32 2e 30 20 |r the xl|isp 2.0 |
|00000300| 6f 62 6a 65 63 74 73 20 | 63 6f 64 65 2c 20 49 20 |objects |code, I |
|00000310| 66 6f 75 6e 64 20 61 20 | 70 72 6f 62 6c 65 6d 20 |found a |problem |
|00000320| 69 6e 0a 78 6c 6f 62 6a | 2e 63 3a 63 6c 61 6e 73 |in.xlobj|.c:clans|
|00000330| 77 65 72 28 29 20 69 6e | 20 77 68 69 63 68 20 49 |wer() in| which I|
|00000340| 20 6e 6f 74 69 63 65 64 | 20 74 68 61 74 20 74 68 | noticed| that th|
|00000350| 65 20 3a 61 6e 73 77 65 | 72 20 6d 65 74 68 6f 64 |e :answe|r method|
|00000360| 20 6f 6e 20 63 6c 61 73 | 73 0a 43 6c 61 73 73 20 | on clas|s.Class |
|00000370| 64 6f 65 73 20 6e 6f 74 | 20 73 61 76 65 20 74 68 |does not| save th|
|00000380| 65 20 6c 65 78 69 63 61 | 6c 20 28 78 6c 65 6e 76 |e lexica|l (xlenv|
|00000390| 29 20 61 6e 64 20 66 75 | 6e 63 74 69 6f 6e 61 6c |) and fu|nctional|
|000003a0| 20 28 78 6c 66 65 6e 76 | 29 0a 65 6e 76 69 72 6f | (xlfenv|).enviro|
|000003b0| 6e 6d 65 6e 74 73 20 69 | 6e 20 74 68 65 20 63 6c |nments i|n the cl|
|000003c0| 6f 73 75 72 65 20 63 72 | 65 61 74 65 64 20 62 79 |osure cr|eated by|
|000003d0| 20 78 6c 63 6c 6f 73 65 | 28 29 20 64 75 72 69 6e | xlclose|() durin|
|000003e0| 67 20 6d 65 74 68 6f 64 | 20 64 65 66 69 6e 69 74 |g method| definit|
|000003f0| 69 6f 6e 2e 0a 54 68 75 | 73 2c 20 77 68 65 6e 20 |ion..Thu|s, when |
|00000400| 74 68 65 20 6d 65 74 68 | 6f 64 20 67 65 74 73 20 |the meth|od gets |
|00000410| 65 76 61 6c 75 61 74 65 | 64 2c 20 79 6f 75 20 67 |evaluate|d, you g|
|00000420| 65 74 20 75 6e 62 6f 75 | 6e 64 20 73 79 6d 62 6f |et unbou|nd symbo|
|00000430| 6c 2f 66 75 6e 63 74 69 | 6f 6e 0a 65 72 72 6f 72 |l/functi|on.error|
|00000440| 73 20 62 65 63 61 75 73 | 65 20 74 68 65 20 65 6e |s becaus|e the en|
|00000450| 76 69 72 6f 6e 6d 65 6e | 74 20 6f 66 20 74 68 65 |vironmen|t of the|
|00000460| 20 6d 65 74 68 6f 64 20 | 63 61 6c 6c 20 64 6f 65 | method |call doe|
|00000470| 73 6e 27 74 20 63 6f 6e | 74 61 69 6e 20 74 68 65 |sn't con|tain the|
|00000480| 0a 62 69 6e 64 69 6e 67 | 73 20 70 72 65 73 65 6e |.binding|s presen|
|00000490| 74 20 69 6e 20 74 68 65 | 20 64 65 66 69 6e 69 74 |t in the| definit|
|000004a0| 69 6f 6e 27 73 20 65 6e | 76 69 72 6f 6e 6d 65 6e |ion's en|vironmen|
|000004b0| 74 2e 20 20 5b 46 6f 72 | 20 79 6f 75 20 6e 6f 6e |t.  [For| you non|
|000004c0| 20 78 6c 69 73 70 65 72 | 73 0a 6f 75 74 20 74 68 | xlisper|s.out th|
|000004d0| 65 72 65 2c 20 3a 61 6e | 73 77 65 72 20 64 65 66 |ere, :an|swer def|
|000004e0| 69 6e 65 73 20 61 20 6d | 65 74 68 6f 64 20 6f 6e |ines a m|ethod on|
|000004f0| 20 61 20 63 6c 61 73 73 | 20 28 65 73 73 65 6e 74 | a class| (essent|
|00000500| 69 61 6c 6c 79 2c 20 61 | 0a 22 64 65 66 6d 65 74 |ially, a|."defmet|
|00000510| 68 6f 64 22 29 2e 5d 0a | 0a 42 65 66 6f 72 65 20 |hod").].|.Before |
|00000520| 49 20 63 6f 6d 6d 69 74 | 20 74 6f 20 6d 79 20 66 |I commit| to my f|
|00000530| 69 78 2c 20 49 20 77 61 | 6e 74 65 64 20 74 6f 20 |ix, I wa|nted to |
|00000540| 61 73 6b 20 79 6f 75 20 | 61 6c 6c 20 77 68 65 74 |ask you |all whet|
|00000550| 68 65 72 20 74 68 65 72 | 65 20 69 73 20 61 20 67 |her ther|e is a g|
|00000560| 6f 6f 64 0a 72 65 61 73 | 6f 6e 20 66 6f 72 20 4e |ood.reas|on for N|
|00000570| 4f 54 20 75 73 69 6e 67 | 20 74 68 65 20 6c 65 78 |OT using| the lex|
|00000580| 69 63 61 6c 20 61 6e 64 | 20 66 75 6e 63 74 69 6f |ical and| functio|
|00000590| 6e 61 6c 20 65 6e 76 69 | 72 6f 6e 6d 65 6e 74 20 |nal envi|ronment |
|000005a0| 6f 66 20 61 20 63 61 6c | 6c 20 74 6f 0a 22 64 65 |of a cal|l to."de|
|000005b0| 66 6d 65 74 68 6f 64 22 | 20 64 75 72 69 6e 67 20 |fmethod"| during |
|000005c0| 61 20 6d 65 74 68 6f 64 | 20 65 76 61 6c 75 61 74 |a method| evaluat|
|000005d0| 69 6f 6e 2e 0a 0a 49 20 | 77 6f 75 6c 64 20 65 78 |ion...I |would ex|
|000005e0| 70 65 63 74 20 74 68 61 | 74 20 79 6f 75 27 64 20 |pect tha|t you'd |
|000005f0| 77 61 6e 74 20 74 6f 20 | 75 73 65 20 6c 65 78 69 |want to |use lexi|
|00000600| 63 61 6c 20 73 63 6f 70 | 69 6e 67 20 66 6f 72 20 |cal scop|ing for |
|00000610| 64 65 66 69 6e 69 6e 67 | 20 6d 65 74 68 6f 64 73 |defining| methods|
|00000620| 0a 6a 75 73 74 20 6c 69 | 6b 65 20 79 6f 75 20 77 |.just li|ke you w|
|00000630| 6f 75 6c 64 20 66 6f 72 | 20 64 65 66 75 6e 73 20 |ould for| defuns |
|00000640| 61 6e 64 20 6c 61 6d 62 | 64 61 73 2e 20 42 75 74 |and lamb|das. But|
|00000650| 20 49 27 76 65 20 62 65 | 65 6e 20 73 75 72 70 72 | I've be|en surpr|
|00000660| 69 73 65 64 20 62 65 66 | 6f 72 65 2e 0a 0a 41 6e |ised bef|ore...An|
|00000670| 6f 74 68 65 72 20 63 61 | 73 65 20 69 6e 20 77 68 |other ca|se in wh|
|00000680| 69 63 68 20 78 6c 63 6c | 6f 73 65 28 29 20 69 73 |ich xlcl|ose() is|
|00000690| 6e 27 74 20 70 61 73 73 | 65 64 20 78 6c 65 6e 76 |n't pass|ed xlenv|
|000006a0| 20 61 6e 64 20 78 6c 66 | 65 6e 76 20 69 73 20 69 | and xlf|env is i|
|000006b0| 6e 0a 78 6c 63 6f 6e 74 | 2e 63 3a 78 64 65 66 6d |n.xlcont|.c:xdefm|
|000006c0| 61 63 72 6f 28 29 2e 20 | 49 73 20 74 68 65 72 65 |acro(). |Is there|
|000006d0| 20 61 20 72 65 61 73 6f | 6e 20 77 68 79 20 79 6f | a reaso|n why yo|
|000006e0| 75 20 77 6f 75 6c 64 6e | 27 74 20 77 61 6e 74 20 |u wouldn|'t want |
|000006f0| 74 6f 20 70 61 73 73 0a | 69 6e 20 74 68 65 20 6c |to pass.|in the l|
|00000700| 65 78 69 63 61 6c 20 65 | 6e 76 69 72 6f 6e 6d 65 |exical e|nvironme|
|00000710| 6e 74 20 6f 66 20 61 20 | 63 61 6c 6c 20 74 6f 20 |nt of a |call to |
|00000720| 64 65 66 6d 61 63 72 6f | 3f 0a 0a 09 09 09 09 2d |defmacro|?......-|
|00000730| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0a 0a 48 65 72 65 27 |--------|-..Here'|
|00000740| 73 20 73 6f 6d 65 20 75 | 73 65 6c 65 73 73 20 74 |s some u|seless t|
|00000750| 65 73 74 20 63 6f 64 65 | 20 74 68 61 74 20 69 6c |est code| that il|
|00000760| 6c 75 73 74 72 61 74 65 | 73 20 74 68 65 20 70 72 |lustrate|s the pr|
|00000770| 6f 62 6c 65 6d 3a 0a 0a | 09 6c 69 73 70 3e 20 28 |oblem:..|.lisp> (|
|00000780| 73 65 74 71 20 74 65 73 | 74 5f 63 6c 61 73 73 20 |setq tes|t_class |
|00000790| 28 73 65 6e 64 20 43 6c | 61 73 73 20 3a 6e 65 77 |(send Cl|ass :new|
|000007a0| 20 27 28 61 20 62 20 63 | 29 20 27 28 29 29 29 0a | '(a b c|) '())).|
|000007b0| 09 6c 69 73 70 3e 20 28 | 6c 65 74 20 28 0a 09 20 |.lisp> (|let (.. |
|000007c0| 20 20 20 20 20 20 20 20 | 20 20 20 28 78 20 36 36 |        |   (x 66|
|000007d0| 36 29 0a 09 20 20 20 20 | 20 20 20 20 20 20 20 20 |6)..    |        |
|000007e0| 28 79 20 37 37 37 29 0a | 09 20 20 20 20 20 20 20 |(y 777).|.       |
|000007f0| 20 20 20 20 20 28 7a 20 | 38 38 38 29 29 0a 09 20 |     (z |888)).. |
|00000800| 20 20 20 20 20 20 20 28 | 73 65 6e 64 20 74 65 73 |       (|send tes|
|00000810| 74 5f 63 6c 61 73 73 20 | 3a 61 6e 73 77 65 72 20 |t_class |:answer |
|00000820| 3a 69 73 6e 65 77 20 27 | 28 29 20 20 3b 69 6e 69 |:isnew '|()  ;ini|
|00000830| 74 69 61 6c 69 7a 65 20 | 6d 65 74 68 6f 64 0a 09 |tialize |method..|
|00000840| 20 20 20 20 20 20 20 20 | 27 28 0a 09 20 09 20 20 |        |'(.. .  |
|00000850| 28 73 65 74 71 20 61 20 | 78 29 0a 09 20 09 20 20 |(setq a |x).. .  |
|00000860| 28 73 65 74 71 20 62 20 | 79 29 0a 09 20 09 20 20 |(setq b |y).. .  |
|00000870| 28 73 65 74 71 20 63 20 | 7a 29 0a 09 20 09 20 20 |(setq c |z).. .  |
|00000880| 29 29 0a 09 20 20 20 20 | 20 20 20 20 29 0a 09 6c |))..    |    )..l|
|00000890| 69 73 70 3e 20 28 73 65 | 74 71 20 69 20 28 73 65 |isp> (se|tq i (se|
|000008a0| 6e 64 20 74 65 73 74 5f | 63 6c 61 73 73 20 3a 6e |nd test_|class :n|
|000008b0| 65 77 29 29 0a 0a 4e 6f | 77 2c 20 75 70 6f 6e 20 |ew))..No|w, upon |
|000008c0| 73 65 6e 64 69 6e 67 20 | 74 68 65 20 3a 6e 65 77 |sending |the :new|
|000008d0| 20 6d 65 73 73 61 67 65 | 2c 20 49 20 67 65 74 20 | message|, I get |
|000008e0| 74 68 65 20 65 72 72 6f | 72 20 6d 65 73 61 67 65 |the erro|r mesage|
|000008f0| 0a 0a 09 6c 69 73 70 3e | 20 65 72 72 6f 72 3a 20 |...lisp>| error: |
|00000900| 75 6e 62 6f 75 6e 64 20 | 76 61 72 69 61 62 6c 65 |unbound |variable|
|00000910| 20 2d 20 58 0a 0a 41 66 | 74 65 72 20 66 69 78 69 | - X..Af|ter fixi|
|00000920| 6e 67 20 74 68 65 20 63 | 6f 64 65 20 69 6e 20 78 |ng the c|ode in x|
|00000930| 6c 6f 62 6a 2e 63 3a 63 | 6c 61 6e 73 77 65 72 28 |lobj.c:c|lanswer(|
|00000940| 29 2c 20 49 20 67 65 74 | 20 74 68 65 20 63 6f 72 |), I get| the cor|
|00000950| 72 65 63 74 20 72 65 73 | 75 6c 74 73 3a 0a 0a 09 |rect res|ults:...|
|00000960| 6c 69 73 70 3e 20 28 73 | 65 6e 64 20 69 20 3a 73 |lisp> (s|end i :s|
|00000970| 68 6f 77 29 0a 09 6c 69 | 73 70 3e 20 4f 62 6a 65 |how)..li|sp> Obje|
|00000980| 63 74 20 69 73 20 23 3c | 4f 62 6a 65 63 74 3a 20 |ct is #<|Object: |
|00000990| 23 31 33 36 30 30 32 3e | 2c 20 43 6c 61 73 73 20 |#136002>|, Class |
|000009a0| 69 73 20 23 3c 4f 62 6a | 65 63 74 3a 20 23 31 32 |is #<Obj|ect: #12|
|000009b0| 37 66 34 30 3e 0a 09 6c | 69 73 70 3e 20 20 20 41 |7f40>..l|isp>   A|
|000009c0| 20 3d 20 36 36 36 0a 09 | 6c 69 73 70 3e 20 20 20 | = 666..|lisp>   |
|000009d0| 42 20 3d 20 37 37 37 0a | 09 6c 69 73 70 3e 20 20 |B = 777.|.lisp>  |
|000009e0| 20 43 20 3d 20 38 38 38 | 0a 09 6c 69 73 70 3e 20 | C = 888|..lisp> |
|000009f0| 23 3c 4f 62 6a 65 63 74 | 3a 20 23 31 33 36 30 30 |#<Object|: #13600|
|00000a00| 32 3e 0a 0a 09 09 09 09 | 2d 2d 2d 2d 2d 2d 2d 2d |2>......|--------|
|00000a10| 2d 2d 0a 0a 48 65 72 65 | 27 73 20 74 68 65 20 70 |--..Here|'s the p|
|00000a20| 61 74 63 68 3a 0a 0a 2a | 2a 2a 20 78 6c 6f 62 6a |atch:..*|** xlobj|
|00000a30| 2e 63 2e 7e 31 7e 09 53 | 61 74 20 41 75 67 20 32 |.c.~1~.S|at Aug 2|
|00000a40| 36 20 30 36 3a 31 34 3a | 33 33 20 31 39 38 39 0a |6 06:14:|33 1989.|
|00000a50| 2d 2d 2d 20 78 6c 6f 62 | 6a 2e 63 09 53 61 74 20 |--- xlob|j.c.Sat |
|00000a60| 41 75 67 20 32 36 20 30 | 36 3a 31 36 3a 32 34 20 |Aug 26 0|6:16:24 |
|00000a70| 31 39 38 39 0a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |1989.***|********|
|00000a80| 2a 2a 2a 2a 0a 2a 2a 2a | 20 32 37 37 2c 32 38 33 |****.***| 277,283|
|00000a90| 0a 20 20 20 20 20 20 2f | 2a 20 73 65 74 75 70 20 |.      /|* setup |
|00000aa0| 74 68 65 20 6d 65 73 73 | 61 67 65 20 6e 6f 64 65 |the mess|age node|
|00000ab0| 20 2a 2f 0a 20 20 20 20 | 20 20 78 6c 70 72 6f 74 | */.    |  xlprot|
|00000ac0| 31 28 66 61 72 67 73 29 | 3b 0a 20 20 20 20 20 20 |1(fargs)|;.      |
|00000ad0| 66 61 72 67 73 20 3d 20 | 63 6f 6e 73 28 73 5f 73 |fargs = |cons(s_s|
|00000ae0| 65 6c 66 2c 66 61 72 67 | 73 29 3b 20 2f 2a 20 61 |elf,farg|s); /* a|
|00000af0| 64 64 20 27 73 65 6c 66 | 27 20 61 73 20 74 68 65 |dd 'self|' as the|
|00000b00| 20 66 69 72 73 74 20 61 | 72 67 75 6d 65 6e 74 20 | first a|rgument |
|00000b10| 2a 2f 0a 21 20 20 20 20 | 20 72 70 6c 61 63 64 28 |*/.!    | rplacd(|
|00000b20| 6d 70 74 72 2c 78 6c 63 | 6c 6f 73 65 28 6d 73 67 |mptr,xlc|lose(msg|
|00000b30| 2c 73 5f 6c 61 6d 62 64 | 61 2c 66 61 72 67 73 2c |,s_lambd|a,fargs,|
|00000b40| 63 6f 64 65 2c 4e 49 4c | 2c 4e 49 4c 29 29 3b 0a |code,NIL|,NIL));.|
|00000b50| 20 20 20 20 20 20 78 6c | 70 6f 70 28 29 3b 0a 20 |      xl|pop();. |
|00000b60| 20 0a 20 20 20 20 20 20 | 2f 2a 20 72 65 74 75 72 | .      |/* retur|
|00000b70| 6e 20 74 68 65 20 6f 62 | 6a 65 63 74 20 2a 2f 0a |n the ob|ject */.|
|00000b80| 0a 2d 2d 2d 20 32 37 37 | 2c 32 38 33 20 2d 2d 2d |.--- 277|,283 ---|
|00000b90| 2d 2d 0a 20 20 20 20 20 | 20 2f 2a 20 73 65 74 75 |--.     | /* setu|
|00000ba0| 70 20 74 68 65 20 6d 65 | 73 73 61 67 65 20 6e 6f |p the me|ssage no|
|00000bb0| 64 65 20 2a 2f 0a 20 20 | 20 20 20 20 78 6c 70 72 |de */.  |    xlpr|
|00000bc0| 6f 74 31 28 66 61 72 67 | 73 29 3b 0a 20 20 20 20 |ot1(farg|s);.    |
|00000bd0| 20 20 66 61 72 67 73 20 | 3d 20 63 6f 6e 73 28 73 |  fargs |= cons(s|
|00000be0| 5f 73 65 6c 66 2c 66 61 | 72 67 73 29 3b 20 2f 2a |_self,fa|rgs); /*|
|00000bf0| 20 61 64 64 20 27 73 65 | 6c 66 27 20 61 73 20 74 | add 'se|lf' as t|
|00000c00| 68 65 20 66 69 72 73 74 | 20 61 72 67 75 6d 65 6e |he first| argumen|
|00000c10| 74 20 2a 2f 0a 21 20 20 | 20 20 20 72 70 6c 61 63 |t */.!  |   rplac|
|00000c20| 64 28 6d 70 74 72 2c 78 | 6c 63 6c 6f 73 65 28 6d |d(mptr,x|lclose(m|
|00000c30| 73 67 2c 73 5f 6c 61 6d | 62 64 61 2c 66 61 72 67 |sg,s_lam|bda,farg|
|00000c40| 73 2c 63 6f 64 65 2c 78 | 6c 65 6e 76 2c 78 6c 66 |s,code,x|lenv,xlf|
|00000c50| 65 6e 76 29 29 3b 09 2f | 2a 20 63 68 61 6e 67 65 |env));./|* change|
|00000c60| 64 20 62 79 20 4e 50 4d | 20 2d 2d 20 70 61 73 73 |d by NPM| -- pass|
|00000c70| 20 69 6e 20 6c 65 78 69 | 63 61 6c 20 61 6e 64 20 | in lexi|cal and |
|00000c80| 66 75 6e 63 74 69 6f 6e | 61 6c 20 65 6e 76 69 72 |function|al envir|
|00000c90| 6f 6e 6d 65 6e 74 20 2a | 2f 0a 20 20 20 20 20 20 |onment *|/.      |
|00000ca0| 78 6c 70 6f 70 28 29 3b | 0a 20 20 0a 20 20 20 20 |xlpop();|.  .    |
|00000cb0| 20 20 2f 2a 20 72 65 74 | 75 72 6e 20 74 68 65 20 |  /* ret|urn the |
|00000cc0| 6f 62 6a 65 63 74 20 2a | 2f 0a 0a 2d 2d 2d 2d 2d |object *|/..-----|
|00000cd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ce0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000cf0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0a 09 20 20 20 20 |--------|--..    |
|00000d20| 4e 69 65 6c 73 20 4d 61 | 79 65 72 20 2d 2d 20 68 |Niels Ma|yer -- h|
|00000d30| 70 6c 61 62 73 21 6d 61 | 79 65 72 20 2d 2d 20 6d |plabs!ma|yer -- m|
|00000d40| 61 79 65 72 40 68 70 6c | 61 62 73 2e 68 70 2e 63 |ayer@hpl|abs.hp.c|
|00000d50| 6f 6d 0a 09 09 20 20 48 | 75 6d 61 6e 2d 43 6f 6d |om...  H|uman-Com|
|00000d60| 70 75 74 65 72 20 49 6e | 74 65 72 61 63 74 69 6f |puter In|teractio|
|00000d70| 6e 20 44 65 70 61 72 74 | 6d 65 6e 74 0a 09 09 20 |n Depart|ment... |
|00000d80| 20 20 20 20 20 20 48 65 | 77 6c 65 74 74 2d 50 61 |      He|wlett-Pa|
|00000d90| 63 6b 61 72 64 20 4c 61 | 62 6f 72 61 74 6f 72 69 |ckard La|boratori|
|00000da0| 65 73 0a 09 09 09 20 20 | 20 20 20 20 50 61 6c 6f |es....  |    Palo|
|00000db0| 20 41 6c 74 6f 2c 20 43 | 41 2e 0a 09 09 09 09 20 | Alto, C|A...... |
|00000dc0| 20 20 2a 0a 0a 0a       |                         |  *...  |        |
+--------+-------------------------+-------------------------+--------+--------+